home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / b / b.lha / B / ex / try / 'GENERATE < prev    next >
Text File  |  1988-11-24  |  197b  |  10 lines
  1. HOW'TO GENERATE:
  2.     SHARE followers, starters, enders
  3.     CHOOSE c1, c2 FROM starters
  4.     WRITE c1^c2
  5.     WHILE c2 not'in enders:
  6.         CHOOSE c3 FROM followers[c1, c2]
  7.         WRITE c3
  8.         PUT c2, c3 IN c1, c2
  9.     WRITE /
  10.